--[[
    编码: WMS-28-10
    名称: 盘点单-根据盘点计划新增盘点单-确定后
    作者：HAN  
    日期：2025-1-29

    级别：固定 (说明本段代码在项目中不太会变化)
    
    函数： AfterClickOK

    功能:
       -- 项目场景巨星二期料箱库，先做盘点计划，生成计划盘点的容器
       -- 弹出【新增盘点单】页面，根据站点，计划盘点容器数量 创建盘点单
    更改记录:

--]]

wms_count= require( "wms_count" )

-- 事件入口函数
function AfterClickOK ( strLuaDEID ) 
    local nRet, strRetInfo
    local input_attrs

    nRet, input_attrs = m3.GetSysCurEditDataAttrs( strLuaDEID )

    if ( nRet ~= 0 )  then lua.Error( strLuaDEID, debug.getinfo(1), "获取当前编辑属性失败! "..input_attrs ) end 
    local count_plan_no = lua.Get_StrAttrValue( input_attrs.S_CP_NO )
    local cntr_num = lua.Get_NumAttrValue( input_attrs.CNTR_Num )           -- 计划盘点容器数量
    local max_cntr_num = lua.Get_NumAttrValue( input_attrs.PC_CNTR_Num )    -- 未盘点容器数量
    local station = lua.Get_StrAttrValue( input_attrs.S_STATION )           -- 盘点站台

    -- 输入参数判断
    if ( count_plan_no == '' ) then
        mobox.setInfo( strLuaDEID, "盘点计划号不能为空!")
        return
    end        
    if ( cntr_num <= 0 ) then 
        mobox.setInfo( strLuaDEID, "盘点容器数量必须大于0!")
        return
    end
    if ( cntr_num > max_cntr_num ) then 
        mobox.setInfo( strLuaDEID, "盘点容器数量不能大于未盘点容器数量!")
        return
    end    
    
    -- 获取盘点计划数据对象
    local count_plan
    nRet, count_plan = m3.GetDataObjectByKey( strLuaDEID, "Count_Plan", "S_CP_NO", count_plan_no )
    if ( nRet ~= 0 ) then 
        mobox.setInfo( strLuaDEID, count_plan )
        return
    end    
    if  ( count_plan.b_state ~= 2 ) then  
        mobox.setInfo( strLuaDEID, "盘点计划'"..count_plan_no.."'的状态不是执行中，无法创建盘点单!" )
        return
    end            

    -- 创建【盘点单】2 表示是系统自动搬运
    local count_method = 2      -- 系统搬运到站台进行盘点
    nRet, strRetInfo = wms_count.Create_CountOrder_ByCountPlan( strLuaDEID, count_plan, count_method, station, cntr_num )
    if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "wms_count.Create_CountOrder_ByCountPlan 失败! "..strRetInfo ) end

end